! FIXME: Compiler segfault when calling get_dependencies
! direct_deps = this%get_dependencies(file_path)
! count = size(direct_deps)

! Temporary workaround - return mock data
count = 1
allocate(character(len=256) :: deps(count))
deps(1) = "mock_transitive.f90"

    if (pre_order) then
        ! Process current node (visitor-specific logic would go here)
    end if

    ! Get and traverse children
    children = ctx%get_children(node_index)
    do i = 1, size(children)
        call traverse_node_recursive(ctx, children(i), visitor, pre_order)
    end do

    ! Post-order visit
    if (.not. pre_order) then
        ! Process current node (visitor-specific logic would go here)
    end if

end subroutine traverse_node_recursive

! Get node type
function ast_get_node_type(this, node_index) result(node_type)
    class(fluff_ast_context_t), intent(in) :: this
    integer, intent(in) :: node_index
    integer :: node_type

    integer :: fortfront_type

    ! Default to unknown
    node_type = NODE_UNKNOWN

    ! Check if initialized
    if (.not. this%is_initialized) return
    if (node_index <= 0) return

    ! Get node type from fortfront
    fortfront_type = get_node_type_id_from_arena(this%arena, node_index)

    ! For now, just return the fortfront type ID directly
    ! We'll need to create a proper mapping once we know the actual IDs
    node_type = fortfront_type

end function ast_get_node_type

! Get children of a node
function ast_get_children(this, node_index) result(children)
    use fortfront, only: get_children_from_arena => get_children
    class(fluff_ast_context_t), intent(in) :: this
    integer, intent(in) :: node_index
    integer, allocatable :: children(:)

    ! Initialize empty array
    allocate(children(0))

    ! Check if initialized
    if (.not. this%is_initialized) return
    if (node_index <= 0) return

    ! Get children from fortfront
    children = get_children_from_arena(this%arena, node_index)

end function ast_get_children

! Get node location
function ast_get_node_location(this, node_index) result(location)
    use fluff_core, only: source_range_t, source_location_t
    class(fluff_ast_context_t), intent(in) :: this
    integer, intent(in) :: node_index
    type(source_range_t) :: location

    ! Initialize with invalid location
    location%start%line = 0
    location%start%column = 0
    location%end%line = 0
    location%end%column = 0

    ! Check if initialized
    if (.not. this%is_initialized) return
    if (node_index <= 0) return

    ! For now, we'll need to get location info differently
    ! fortfront may provide this through a different API
    ! TODO: Implement proper location retrieval once API is clarified
    location%start%line = 1
    location%start%column = 1
    location%end%line = 1
    location%end%column = 1

! FIXME: Compiler segfault when calling get_changed_files
! info%affected_files = this%get_changed_files()
allocate(character(len=256) :: info%affected_files(1))
info%affected_files(1) = ""